# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl GetSummaryDB.t'

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use strict;
use warnings;

use Test::More tests => 1;
BEGIN { use_ok('GetSummaryDB') };

#########################

# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.

# Test 1:
my $obj = new GetSummaryDB;

# my $dbh = undef;
my $op_textRef = undef;

# Test 1

my %filter; # = {"stnType" => "RFCAL"};


$filter{'stnType'} = "RFCAL";
$filter{'stnID'} = "%";
$filter{'prodID'} = "%";
$filter{'prodBOM'} = "%";
$filter{'prodFW'} = "%";
$filter{'testATEVer'}= "%";
$filter{'startDate'}= "01/01/2011";
$filter{'endDate'} = "01/01/2011";
	
	
$obj->GetSummaryDB(

	# Query conditions
	\%filter,			# $stationtype
	"0",			# $gen_dis_graphics
	# DB server name
	\"carmd-app28",

	# working directory
	\"C:/carmd-cvs02/Koala",
	# Output file
	# \"C:/Documents and Settings/ryan/Desktop/summaryoutput/test/main.html",
	\"C:/tmp/main.html",
				
	# \"%",			# $TargetstationID
	# \"SL8082",		# $product Model
	# \"%",            # $productBOM
	# \"%",            # $productFW
	# \"%",			# $testcodeversion
	# \"11/02/2010",	# $startdate\
	# \"20/03/2011",	# $enddate
	# Generate distribution charts?
	# "0",			# $gen_dis_graphics
		


	# Perl/Tk text widget reference
	$op_textRef,	
	
	
);
